<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>2833</cardID>
<listID>9118</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on xy -- puts the mouse location in the message box until a mouse clickrepeat until the mouse is downput the mouseLocend repeatend xyon cchoose browse tooldoMenu "Card Info..."end con bchoose browse tooldoMenu "Bkgnd Info..."end bon schoose browse tooldoMenu "Stack Info..."end son startUpgetHomeInfopass startUp -- to a startUp XCMD, if presentend startUpon resumegetHomeInfopass resume -- to a resume XCMD, if presentend resumeon getHomeInfoglobal stacks,applications,documents,userNameset lockScreen to trueset lockMessages to truepush this cardgo to card "User Preferences" of stack "Home"put card field "User Name" into userNameset userLevel to card field "User Level"set powerKeys to the hilite of button "Power Keys"set blindTyping to the hilite of button "Blind Typing"put field "paths" of card "stacks" into stacksput field "paths" of card "applications" into applicationsput field "paths" of card "documents" into documentspop cardset lockScreen to falseset lockMessages to falseend getHomeInfoon searchScript pattern,stackName -- search all scripts of a stackset lockMessages to trueif stackName is not empty then go to stack stackNameif the script of this stack contains patternthen edit script of this stackrepeat with i = 1 to the number of bkgndsgo to card 1 of bkgnd iif the script of this bkgnd contains patternthen edit script of bkgndrepeat with j = 1 to the number of bkgnd buttonsif the script of bkgnd button j contains patternthen edit script of bkgnd button jend repeatrepeat with j = 1 to the number of bkgnd fieldsif the script of bkgnd field j contains patternthen edit script of bkgnd field jend repeatend repeatrepeat with i = 1 to the number of cardsgo card iif the script of this card contains patternthen edit script of this cardrepeat with j = 1 to the number of card buttonsif the script of card button j contains patternthen edit script of card button jend repeatrepeat with j = 1 to the number of card fieldsif the script of card field j contains patternthen edit script of card field jend repeatend repeatset lockMessages to falseend searchScripton enterkeysend "enterkey" to button "globalfind" of card 1end enterkeyon openStackhide message boxshow menuBarpass openStackend openStack</script>
